home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSMOVE.for < prev    next >
Text File  |  1991-04-23  |  668b  |  28 lines
  1.         SUBROUTINE GSMOVE(X,Y)
  2.         IMPLICIT NONE
  3.         REAL*4 X,Y
  4. C
  5. C       MOVE THE THE POINT (X,Y).
  6. C
  7.         INCLUDE DIGLIB$KOM:GCLTYP.PRM
  8.         INCLUDE DIGLIB$KOM:GCVPOS.PRM
  9.         INCLUDE DIGLIB$KOM:GCCPOS.PRM
  10.         INTEGER*2 GSIVIS
  11. C
  12. C       RESET LINE STYLE TO BEGINNING OF PATTERN AND SHOW MOVED
  13. C
  14.         LINILT = .TRUE.
  15.         LPOSND = .FALSE.
  16. C
  17. C       TRANSFORM VIRTUAL COORD. TO ABSOLUTE COORD.
  18. C
  19.         XVPOS = X
  20.         YVPOS = Y
  21. D    WRITE(9,1345)X,Y,XVPOS,YVPOS,XAPOS,YAPOS
  22. D1345    FORMAT(1X,"GSMOVE",6F6.2)
  23.         CALL GSRST(XVPOS,YVPOS,XAPOS,YAPOS)
  24.         IVIS = GSIVIS(XAPOS,YAPOS)
  25. D    WRITE(9,1345)X,Y,XVPOS,YVPOS,XAPOS,YAPOS
  26.     RETURN
  27.     END
  28.